object Renform: TRenform Left = 461 Top = 107 BorderIcons = [] BorderStyle = bsToolWindow Caption = 'Rename file' ClientHeight = 103 ClientWidth = 241 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 18 Top = 10 Width = 95 Height = 13 Caption = 'Enter new name for:' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 18 Top = 30 Width = 209 Height = 21 TabOrder = 0 Text = 'Edit1' end object Button1: TButton Left = 46 Top = 62 Width = 75 Height = 25 Caption = 'OK' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 126 Top = 62 Width = 75 Height = 25 Caption = 'Cancel' Default = True TabOrder = 2 OnClick = Button2Click end end